home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / E-G / GetFonts!.cpt / GetFonts! / card_2901.txt < prev    next >
Text File  |  1989-02-26  |  5KB  |  225 lines
  1. -- card: 2901 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2769
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2001
  11. -- rect: left=18 top=31 right=74 bottom=65
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1011 / 1011
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Home
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the optionkey is down then
  23.     pass mouseup
  24.   end if
  25.  
  26.   go home
  27. end mouseUp
  28.  
  29.  
  30.  
  31. -- part 5 (button)
  32. -- low flags: 00
  33. -- high flags: A003
  34. -- rect: left=347 top=282 right=304 bottom=447
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: Show Syntax
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   Show card field "info"
  46.   repeat until the mouse is down
  47.   end repeat
  48.   hide card field "info"
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 8 (field)
  54. -- low flags: 01
  55. -- high flags: 0000
  56. -- rect: left=143 top=35 right=59 bottom=373
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 3
  61. -- text size: 14
  62. -- style flags: 1280
  63. -- line height: 18
  64. -- part name: 
  65.  
  66.  
  67. -- part 10 (field)
  68. -- low flags: 80
  69. -- high flags: 0004
  70. -- rect: left=118 top=79 right=265 bottom=416
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 3
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: About
  79.  
  80.  
  81. -- part 11 (field)
  82. -- low flags: 01
  83. -- high flags: 0000
  84. -- rect: left=26 top=92 right=317 bottom=229
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 3
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: 
  93.  
  94.  
  95. -- part 12 (field)
  96. -- low flags: 01
  97. -- high flags: 0007
  98. -- rect: left=242 top=93 right=278 bottom=483
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 3
  103. -- text size: 14
  104. -- style flags: 0
  105. -- line height: 18
  106. -- part name: Show
  107.  
  108.  
  109. -- part 13 (button)
  110. -- low flags: 00
  111. -- high flags: A002
  112. -- rect: left=248 top=65 right=86 bottom=326
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name:  Show Font
  121. ----- HyperTalk script -----
  122. on mousedown
  123.   global fonts -- from openstack
  124.  
  125.   set hilite of the target to true
  126.   get rect of the target
  127.   delete item 2 to 3 of it
  128.   add 1 to item 1 of it
  129.   add 1 to item 2 of it
  130.  
  131.   get PopUpMenu(fonts, 0, item 2 of it, item 1 of it)
  132.  
  133.   set hilite of the target to false
  134.  
  135.   if it is not zero then
  136.     put item it of fonts into temp
  137.     set textfont of card field "Show" to temp
  138.   end if
  139. end mousedown
  140.  
  141.  
  142.  
  143. -- part 14 (button)
  144. -- low flags: 00
  145. -- high flags: A002
  146. -- rect: left=366 top=65 right=86 bottom=444
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: Show Size
  155. ----- HyperTalk script -----
  156. on mousedown
  157.   Get textfont of card field "Show"
  158.  
  159.   put FontSize(it) into size
  160.  
  161.   set hilite of the target to true
  162.   get rect of the target
  163.   delete item 2 to 3 of it
  164.   add 1 to item 1 of it
  165.   add 1 to item 2 of it
  166.  
  167.   get PopUpMenu(size, 0, item 2 of it, item 1 of it)
  168.  
  169.   set hilite of the target to false
  170.  
  171.   if it is not zero then
  172.     put item it of size into temp
  173.     set textsize of card field "show" to temp
  174.   end if
  175. end mousedown
  176.  
  177.  
  178.  
  179. -- part 19 (field)
  180. -- low flags: 81
  181. -- high flags: 0002
  182. -- rect: left=26 top=92 right=267 bottom=229
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 0
  186. -- font id: 3
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: info
  191.  
  192.  
  193. -- part contents for card part 8
  194. ----- text -----
  195. Trap Return XCMD
  196.  
  197. -- part contents for card part 11
  198. ----- text -----
  199. Two new XFCN to retrieve Fonts and Sizes  in all open resource files.
  200.  
  201.  
  202. If you find these XFCN usefull, feel free to use and distribute.
  203.  
  204.  
  205.       Guy de Picciotto.
  206.  
  207. CIS: 73300,3637
  208. GENIE: G.PICCIOTO
  209.  
  210.  
  211.  
  212. -- part contents for card part 12
  213. ----- text -----
  214. Avant Garde,B Bookman Demi,B Glypha Bold,Benguiat,BillsDingbats,Bodoni,Bookman,Brush Script,Century Old Style,Cheltenham,Chicago,ChiTown,Clairvaux,CLB Helvetica Condensed Black,Cooper Black,Courier,Flowscript,FranklinGothic,Freestyle Script,Friz Quadrata,Galliard,Garamond,GBShaw,Geneva,Gregorian,Helvetica,I Glypha Oblique,I Korinna KursivRegular,Korea,Korinna,L Helvetica Light,Melior,Monaco,New Century Schlbk,New York,P Bodoni Poster,Palatino,Symbol,Times,Venice
  215.  
  216. -- part contents for card part 19
  217. ----- text -----
  218. Get FontName()
  219.  
  220. Retrieves font names as separate items of a container.
  221.  
  222. Get FontSize("Geneva")
  223.  
  224. Retrieves all Geneva sizes as separate items of a container.
  225.